home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
001
/
qmsstins.arc
/
SOURCE-U.SCR
< prev
next >
Wrap
Text File
|
1987-09-20
|
2KB
|
72 lines
.LINKED SCRIPT FOR THE SOURCE VIA UNINET;
.LINK IT TO YOUR QMODEM PHONE DIRECTORY ENTRY FOR ANY
.UNINET PHONE NUMBER(S).
.USE YOUR WORD PROCESSOR TO EDIT THIS FILE TO INCLUDE
. [1] Your Source connect# for Uninet
. [2] Your Source account#
. [3] Your Source password
. [4] Any Source command(s)
.COMMENTS ARE PREDEDED BY A PERIOD & REFER TO THE NEXT COMMAND LINE
.Display message on-screen only
NOTE ** LOGON TO THE SOURCE VIA UNINET **
.The next line says to WAITFOR 60 seconds before halting script
TIMEOUT 60
.Set key parameters for The Source
TURNON XON/XOFF
TURNOFF ECHO LINEFEED
.Call Uninet;
.phone number, bps, comm parameters depend on directory entry #
.for local #s contact Uninet at 800-821-5340 or 816-221-2444
.Uninet 'logon' is CR.CR (add pauses for Uninet)
SEND "~{~.~{"
.Wait for Uninet to request host service ID
WAITFOR "service :"
.Reply with your Source connect ID for Uninet
.[1] Refer to your Source new member kit for exact ID
SEND "S11{"
.Wait for The Source to request your logon
WAITFOR "Connected to THE SOURCE"
WAITFOR "> "
.[2] Send your Source Account# followed by CR
SEND "ID ACCOUNT#{"
.Wait for The Source to request your password
WAITFOR "Password?"
.[3] Send your password; include control characters if required
SEND "FAKE-PASSWORD{"
.Wait for The Source to Request your input
WAITFOR "Enter item number or Help: "
.Eliminate Menus, go to the Source Command Mode
SEND "Q{"
.Wait for The Source to Request your input
WAITFOR "-> "
.Prevent CHAT if you wish to avoid interruptions
SEND "CHAT -OFF{"
.Wait for The Source to Request your input
WAITFOR "-> "
.[4] Send any Source command, such as:
. MAIL READ UNREAD{ or MENU{ or POST SCAN IBM{
SEND "MAIL READ{"
.Discontinue script processing; return control to keyboard
RETURN